https://pptcloud.ru/informatika/algoritmy-s-vetvyascheysya-strukturoy-programmirovanie-vetvleniy-na-qbasic